home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / tbbs093.lha / Rexx / BBSSetAccess.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-02-15  |  600 b   |  27 lines
  1. /* Sets access level for user */
  2.  
  3. if arg() = 1 then do
  4.     ln = arg(1)
  5.     address 'TechCon'
  6.     LineName = Con_LineActive(ln)
  7.     if LineName = "" then do
  8.         say 'Node '||ln||' not active'
  9.         exit 0
  10.         end
  11.     address command
  12.     'requestfile DRAWER BBS:User FILE Normal.acc >t:tmpsetacc'
  13.     if open('fname', 't:tmpsetacc', 'READ') then do
  14.         file = strip(readln('fname'), 'B', '"')
  15.         close('fname')
  16.         'delete t:tmpsetacc'
  17.         address VALUE LineName
  18.         if Exists(file) then do
  19.             SetAccessPreset file
  20.             SaveUser
  21.             end
  22.         else say 'File '||file||' does not exist!'
  23.         end
  24.     end
  25. else say 'Usage: BBSSetAccess.rexx <node>'
  26. exit 0
  27.